#! C:\Perl\bin\perl -d
my $dir = "C:\\Documents and Settings\\rejun001\\NetbeansProjects\\SFOUtils\\src\\sfoutils\\";

print "Dir is $dir\n";
$in = "${dir}sfo.in";
$out = "${dir}sfo.out";

#$fn_prefix = "ins_";

$min_prefix = "select count\(*\) from IBEAM.";
$min_middle = "\@IBEAM_PROD MINUS select count\(*\) from IBEAM_OWNER.";
my $sfoline;

open(IN, $in) or die "Bad open $in:$!";
open(OUT, ">$out") or die "Bad open $out:$!";

while (<IN>) {
	chomp;
	if (/^\s*(.*)\s*$/) {
		$sfoline = $1;
		$sfoline =~ s/^(.*)$/ + \"$1 \"/;
		$sfoline =~ s/\> \"$/\>\"/;
		print OUT $sfoline . "\n";
	}
}
close IN;
close OUT;
